--- a/Timestamp.st	Wed Mar 23 13:50:46 2005 +0100
+++ b/Timestamp.st	Wed Mar 23 17:53:06 2005 +0100
@@ -250,6 +250,11 @@
     ].
 
     ^ self readGeneralizedFrom:(anArray at:2) onError:[self error:'literal array decoding']
+
+    "
+     Timestamp
+        decodeFromLiteralArray:#(Timestamp '20050323175226.014')      
+    "
 !
 
 fromDate:aDate andTime:aTime
@@ -1290,7 +1295,7 @@
 !Timestamp class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Timestamp.st,v 1.97 2004-08-19 15:08:19 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Timestamp.st,v 1.98 2005-03-23 16:52:58 cg Exp $'
 ! !
 
 Timestamp initialize!