--- a/Fraction.st	Wed Sep 01 21:57:35 1999 +0200
+++ b/Fraction.st	Wed Sep 01 22:00:25 1999 +0200
@@ -631,6 +631,14 @@
 
 !Fraction methodsFor:'testing'!
 
+isLiteral
+    "return true, if the receiver can be used as a literal constant in ST syntax
+     (i.e. can be used in constant arrays)"
+
+    ^ true
+
+!
+
 negative
     "return true if the receiver is negative"
 
@@ -722,6 +730,6 @@
 !Fraction class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Fraction.st,v 1.46 1999-08-12 08:58:20 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Fraction.st,v 1.47 1999-09-01 20:00:25 cg Exp $'
 ! !
 Fraction initialize!