--- a/Color.st	Fri Feb 17 11:58:23 2017 +0100
+++ b/Color.st	Fri Feb 17 12:36:50 2017 +0100
@@ -2046,13 +2046,15 @@
     "return the orange color - ST-80 compatibility"
 
     Orange isNil ifTrue:[
-        Orange := self redPercent:100 greenPercent:50 bluePercent:0.
+        Orange := self rgbValue:16rFFA500.
     ].
     ^ Orange
 
     "
      Color orange inspect
     "
+
+    "Modified: / 17-02-2017 / 12:34:20 / cg"
 !
 
 orange: orange