--- a/Time.st	Sat Aug 20 16:43:25 2011 +0200
+++ b/Time.st	Sat Aug 20 16:47:15 2011 +0200
@@ -71,6 +71,12 @@
 
 !Time class methodsFor:'instance creation'!
 
+fromString: aString
+    ^ self readFrom: (ReadStream on: aString).
+
+    "Modified (format): / 20-08-2011 / 16:46:39 / cg"
+!
+
 hour:h minute:m
     "compatibility"
 
@@ -290,7 +296,6 @@
     ^ '%h:%m:%s'
 ! !
 
-
 !Time methodsFor:'Compatibility-Squeak'!
 
 intervalString
@@ -779,13 +784,12 @@
     timeEncoding := encoding
 ! !
 
-
 !Time class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Time.st,v 1.89 2011-01-24 19:56:23 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Time.st,v 1.90 2011-08-20 14:47:15 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/Time.st,v 1.89 2011-01-24 19:56:23 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Time.st,v 1.90 2011-08-20 14:47:15 cg Exp $'
 ! !