--- a/TimeDuration.st Wed May 21 17:28:49 2014 +0200
+++ b/TimeDuration.st Wed May 21 21:22:26 2014 +0200
@@ -615,7 +615,7 @@
asLongFloat
"answer the duration is seconds"
- ^ timeEncoding / 1000q
+ ^ timeEncoding / 1000 asLongFloat
"
(10 milliseconds) asLongFloat
@@ -1149,11 +1149,11 @@
!TimeDuration class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/TimeDuration.st,v 1.69 2014-05-21 15:28:49 stefan Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/TimeDuration.st,v 1.70 2014-05-21 19:22:26 stefan Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libbasic/TimeDuration.st,v 1.69 2014-05-21 15:28:49 stefan Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/TimeDuration.st,v 1.70 2014-05-21 19:22:26 stefan Exp $'
! !