diff --git a/src/llogo/print.165 b/src/llogo/print.165
index e4743e48..6ff28124 100644
--- a/src/llogo/print.165
+++ b/src/llogo/print.165
@@ -16,10 +16,10 @@
 [(OR MULTICS DEC10) (DEFINE DPRINC (SYN PRINC)) 
 		    (DEFINE DTERPRI (SYN TERPRI))] 
 
-[ITS (DEFUN DPRINC (X) (SUBRCALL NIL DPRINC X))
-     (DEFUN DTERPRI NIL (SUBRCALL NIL DTERPRI))
-     ;;WATCH IT, THESE ARE LSUBRS IN NEWIO!
-     (SETQ DPRINC (GET 'PRINC 'SUBR) DTERPRI (GET 'TERPRI 'SUBR))] 
+[ITS (DEFUN DPRINC (X) (PRINC X))
+     (DEFUN DTERPRI NIL (TERPRI))
+     ;;WATCH IT, PRINC AND TERPRI ARE LSUBRS IN NEWIO!
+     (SETQ DPRINC (GET 'DPRINC 'SUBR) DTERPRI (GET 'DTERPRI 'SUBR))] 
 
 (DEFUN DPRINT (X) (DTERPRI) (DPRIN1 X) (DPRINC '/ ))