diff --git a/collects/honu/core/main.rkt b/collects/honu/core/main.rkt
index 6f0b03bf56..10051e012c 100644
--- a/collects/honu/core/main.rkt
+++ b/collects/honu/core/main.rkt
@@ -61,6 +61,7 @@
                      (honu-. |.|)
                      )
 
+         #;
          (rename-out [honu-print print])
 
          #%top
diff --git a/collects/honu/core/private/honu-typed-scheme.rkt b/collects/honu/core/private/honu-typed-scheme.rkt
index 043e153582..e7be223c15 100644
--- a/collects/honu/core/private/honu-typed-scheme.rkt
+++ b/collects/honu/core/private/honu-typed-scheme.rkt
@@ -621,6 +621,7 @@ if (foo){
                      (honu-unparsed-begin forms ...))
                     (#%plain-module-begin (honu-unparsed-begin forms ...)))
 
+#;
 (define (honu-print arg)
   (printf "~a\n" arg))
 
diff --git a/collects/honu/main.rkt b/collects/honu/main.rkt
index 865b3316ec..ba03eb3e14 100644
--- a/collects/honu/main.rkt
+++ b/collects/honu/main.rkt
@@ -12,7 +12,8 @@
 
 (provide-module "core/main.rkt"
                 "private/struct.honu"
-                "private/function.honu")
+                "private/function.honu"
+                "private/common.honu")
 
 #|
 (racket:require "core/main.rkt"
diff --git a/collects/honu/private/common.honu b/collects/honu/private/common.honu
new file mode 100644
index 0000000000..ff21377b74
--- /dev/null
+++ b/collects/honu/private/common.honu
@@ -0,0 +1,7 @@
+#lang honu/core
+
+provide print;
+
+macro print ()
+{ _ (value:expression); } { syntax(display(value_result); newline();); }
+{ _ value:expression_comma ... ; } { syntax({display(value_result); newline();} ...); }