diff --git a/lib/ikarus/foreign.ss b/lib/ikarus/foreign.ss
index 0341f5e..0c77d2e 100644
--- a/lib/ikarus/foreign.ss
+++ b/lib/ikarus/foreign.ss
@@ -27,7 +27,7 @@
           make-c-callout make-c-callback 
           pointer-size)
 
-  (import (ikarus system $foreign))
+  (import (ikarus) (ikarus system $foreign))
 
   (define (pointer-size)
     (cond
diff --git a/scheme/ikarus.compiler.altcogen.ss b/scheme/ikarus.compiler.altcogen.ss
index 78e984a..aa4a5ad 100644
--- a/scheme/ikarus.compiler.altcogen.ss
+++ b/scheme/ikarus.compiler.altcogen.ss
@@ -759,6 +759,7 @@
       [(forcall) (VT x)]
       [(shortcut body handler)
        (make-shortcut (Tail body) (Tail handler))]
+      [(known x) (Tail x)]
       [else (error who "invalid tail" x)]))
   ;;;
   (define (formals-locations args)
diff --git a/scheme/last-revision b/scheme/last-revision
index 987568c..076bcb6 100644
--- a/scheme/last-revision
+++ b/scheme/last-revision
@@ -1 +1 @@
-1688
+1690