@@ -5,9 +5,9 @@
 ( --------------------------------------------------------------------------- )
 needs dissect'
 
 chain: autopsy'
-  : decompile  ( a-a )  dup putn space ^dissect'decompile "%s\n" puts ;
+  : decompile  ( a-a )  dup ^dissect'decompile swap "%d %s\n" puts 1+ ;
 
 ( --[ Box Drawing Code ]----------------------------------------------------- )
 
 ( --[ Box geometry ]------------------------------------------ )