diff --git a/collects/honu/core/private/honu-typed-scheme.rkt b/collects/honu/core/private/honu-typed-scheme.rkt
index cd55a79591..118244f34b 100644
--- a/collects/honu/core/private/honu-typed-scheme.rkt
+++ b/collects/honu/core/private/honu-typed-scheme.rkt
@@ -457,7 +457,9 @@ Then, in the pattern above for 'if', 'then' would be bound to the following synt
     [(_) #'(void)]
     [(_ forms ...)
      (define-values (parsed unparsed) (honu-expand #'(forms ...)))
-     (debug "expanded ~a\n" (syntax->datum parsed))
+     (debug "expanded ~a unexpanded ~a\n"
+            (syntax->datum parsed)
+            (syntax->datum unparsed))
      (with-syntax ([parsed parsed]
                    [(unparsed ...) unparsed])
        (if (null? (syntax->datum #'(unparsed ...)))
diff --git a/collects/honu/core/private/honu2.rkt b/collects/honu/core/private/honu2.rkt
index 6f4a86d1fe..3a80e69957 100644
--- a/collects/honu/core/private/honu2.rkt
+++ b/collects/honu/core/private/honu2.rkt
@@ -165,4 +165,4 @@
 (define-syntax (honu-top-interaction stx)
   (syntax-case stx ()
     [(_ rest ...)
-     #'(printf "~a\n" (honu-unparsed-begin rest ...))]))
+     #'(#%top-interaction . (honu-unparsed-begin rest ...))]))
diff --git a/collects/honu/lang/reader.rkt b/collects/honu/lang/reader.rkt
index e813f69486..ed19d2233a 100644
--- a/collects/honu/lang/reader.rkt
+++ b/collects/honu/lang/reader.rkt
@@ -6,6 +6,7 @@ honu
 #:read-syntax honu-read-syntax
 #:whole-body-readers? #t
 #:info honu-info
+#:language-info #(honu/core/language honu-language-info #f)
 
 (require "../core/read.rkt"
          "../core/language.rkt")