--- a/TimeDuration.st	Fri May 30 10:37:00 2014 +0200
+++ b/TimeDuration.st	Fri May 30 10:37:37 2014 +0200
@@ -564,14 +564,6 @@
     "
      (TimeDuration fromString:'10s') * 5
     "
-!
-
-roundTo:aTimeDuration
-     ^ self class new timeEncoding:(timeEncoding roundTo:aTimeDuration timeEncoding)
-
-    "
-      (TimeDuration fromMilliseconds:25234) roundTo:(TimeDuration fromSeconds:2)
-    "
 ! !
 
 !TimeDuration methodsFor:'converting'!
@@ -1149,11 +1141,11 @@
 !TimeDuration class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/TimeDuration.st,v 1.70 2014-05-21 19:22:26 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/TimeDuration.st,v 1.71 2014-05-30 08:37:37 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/TimeDuration.st,v 1.70 2014-05-21 19:22:26 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/TimeDuration.st,v 1.71 2014-05-30 08:37:37 stefan Exp $'
 ! !