--- gforth/source.fs	1996/09/19 22:17:37	1.3
+++ gforth/source.fs	1997/03/04 17:49:55	1.4
@@ -41,4 +41,5 @@ end-struct sourcepos
 
 : print-sourcepos ( a-addr -- )
     get-sourcepos
-    >r type ." :" r> 0 .r ;
+    >r type ." :"
+    base @ decimal r> 0 .r base ! ;