Modified words

client-tests.fs

@@ -115,7 +115,7 @@ previous
     net2o-code
       expect-reply
       !time .time s" Download test " $, type 1 lit, . pi float, f. cr
-      ( see-me ) get-ip 0 lit, file-id words push' cr endwith
+      ( see-me ) get-ip 0 lit, file-id 0 lit, words push' cr endwith
       $400 blocksize! $400 blockalign! stat( request-stats )
       "net2o.fs" "net2o.fs" >cache n2o:copy
       "data/2011-05-13_11-26-57-small.jpg" "photo000s.jpg" >cache n2o:copy

net2o-cmd.fs

@@ -475,14 +475,18 @@ also net2o-base definitions
 
 dup set-current
 
-: net2o:words ( -- )
-    token-table $@ bounds U+DO
-	I @ ?dup-IF >net2o-name 2dup type space $, s" -" $, token  THEN
+: net2o:words ( start -- )
+    token-table $@ rot cells safe/string bounds U+DO
+	I @ ?dup-IF
+	    >net2o-name dup $A0 + maxstring < IF
+		$, s" -" $, token
+	    ELSE  2drop  THEN
+	THEN
     cell +LOOP ;
 
 definitions
 
-+net2o: words ( -- )
++net2o: words ( start -- )  64>n
     net2o:words ;
 
 \ setup connection class