Smalltalk.st
changeset 20857 e13cdc7188f1
parent 20856 f665f0659097
child 20858 ffcbac4dd7ef
--- a/Smalltalk.st	Sat Nov 05 18:59:43 2016 +0100
+++ b/Smalltalk.st	Sat Nov 05 19:03:06 2016 +0100
@@ -3800,6 +3800,7 @@
 
     "/ add bindings for arguments
     Workspace workspaceVariableAt:('_$0') put:CommandName.
+    Workspace workspaceVariableAt:('_$n') put:CommandLineArguments size.
     CommandLineArguments doWithIndex:[:arg :i |
         Workspace workspaceVariableAt:('_$',i printString) put:arg.
     ].