--- gforth/arch/mips/disasm.fs	2000/06/11 11:06:23	1.9
+++ gforth/arch/mips/disasm.fs	2000/07/01 20:48:52	1.10
@@ -98,7 +98,10 @@ dup set-current
     \G disassemble u aus starting at addr
     bounds u+do
 	cr ." ( " i hex. ." ) " i i @ disasm-inst
-	1 cells +loop ;
+	1 cells +loop
+    cr ;
+
+' disasm IS discode
 
 definitions