--- a/AbstractTime.st	Mon Nov 25 10:20:03 2002 +0100
+++ b/AbstractTime.st	Tue Nov 26 10:04:49 2002 +0100
@@ -572,6 +572,9 @@
         a numberOfSeconds as argument. 
         Use any of addSeconds/addHours etc. to make things clear"
 
+    timeAmount isNumber ifFalse:[
+        ^ self addSeconds:(timeAmount asSeconds).
+    ].
     ^ self addSeconds:timeAmount
 !
 
@@ -687,6 +690,9 @@
         a numberOfSeconds as argument. 
         Use any of addSeconds/addHours etc. to make things clear"
 
+    timeAmount isNumber ifFalse:[
+        ^ self subtractSeconds:(timeAmount asSeconds).
+    ].
     ^ self subtractSeconds:timeAmount
 
 ! !
@@ -949,5 +955,5 @@
 !AbstractTime class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/AbstractTime.st,v 1.36 2002-10-09 15:30:07 penk Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/AbstractTime.st,v 1.37 2002-11-26 09:04:49 cg Exp $'
 ! !