--- a/Time.st	Sat Dec 20 01:05:38 2003 +0100
+++ b/Time.st	Sat Dec 20 01:16:44 2003 +0100
@@ -69,6 +69,16 @@
 
 !Time class methodsFor:'instance creation'!
 
+hour:h minute:m second:s
+    "compatibility"
+
+    ^ self hours:h minutes:m seconds:s
+
+    "
+     Time hour:2 minute:33 second:0 
+    "
+!
+
 hour:h minutes:m seconds:s
     "return an instance of Time representing the given time.
      See also Time now / Date today / AbsoluteTime now.
@@ -671,5 +681,5 @@
 !Time class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Time.st,v 1.70 2003-12-20 00:05:38 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Time.st,v 1.71 2003-12-20 00:16:44 cg Exp $'
 ! !