--- a/TimeDuration.st	Tue Feb 03 15:21:50 2015 +0100
+++ b/TimeDuration.st	Tue Feb 03 16:14:18 2015 +0100
@@ -11,6 +11,8 @@
 "
 "{ Package: 'stx:libbasic' }"
 
+"{ NameSpace: Smalltalk }"
+
 Time subclass:#TimeDuration
 	instanceVariableNames:''
 	classVariableNames:'TimeDurationZero DefaultFormatForPrinting'
@@ -318,6 +320,8 @@
     "
      TimeDuration readFrom:'2' defaultUnit:$h onError:nil 2h
      TimeDuration readFrom:'100' defaultUnit:$m onError:nil 1h 40m
+     TimeDuration readFrom:'02:00' defaultUnit:$m onError:nil 2h
+     TimeDuration readFrom:'0200' defaultUnit:$h onError:nil 2h
 
      TimeDuration readFrom:'1h'      
      TimeDuration readFrom:'1h 35m'     
@@ -1157,11 +1161,11 @@
 !TimeDuration class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/TimeDuration.st,v 1.74 2014-11-14 12:13:38 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/TimeDuration.st,v 1.75 2015-02-03 15:14:18 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/TimeDuration.st,v 1.74 2014-11-14 12:13:38 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/TimeDuration.st,v 1.75 2015-02-03 15:14:18 stefan Exp $'
 ! !