--- a/CharacterArray.st	Thu Jun 18 16:03:37 1998 +0200
+++ b/CharacterArray.st	Thu Jun 18 16:05:15 1998 +0200
@@ -2132,6 +2132,7 @@
     "/   <#p>   # is arg Number; slice in the args printString
     "/   <#s>   # is arg Number; slice in the arg itself (must be a String)
     "/   <n>    replace by a newLine character
+    "/   <t>    replace by a tab character
 
     |in out c fmt nr|
 
@@ -2144,6 +2145,9 @@
             in peek == $n ifTrue:[
                 out nextPut:Character cr.
                 in next
+            ] ifFalse:[in peek == $t ifTrue:[
+                out nextPut:Character tab.
+                in next
             ] ifFalse:[
                 "/ start an argument expansion ...
                 nr := Integer readFrom:in onError:nil.
@@ -2173,7 +2177,7 @@
                         ]
                     ]
                 ].
-            ].
+            ]].
             c := in next.
             c ~~ $> ifTrue:[
                 "/ what does VW do here ?
@@ -2190,7 +2194,7 @@
      'hello <1p> how are you' expandMacrosWith:(OperatingSystem getLoginName)
     "
 
-    "Modified: / 1.11.1997 / 13:31:50 / cg"
+    "Modified: / 18.6.1998 / 16:04:46 / cg"
 ! !
 
 !CharacterArray methodsFor:'Compatibility - V''Age'!
@@ -5162,6 +5166,6 @@
 !CharacterArray class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/CharacterArray.st,v 1.149 1998-06-18 14:03:37 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/CharacterArray.st,v 1.150 1998-06-18 14:05:15 cg Exp $'
 ! !
 CharacterArray initialize!