--- a/Icon.st	Wed Feb 01 05:09:04 2017 +0000
+++ b/Icon.st	Wed Feb 01 15:10:20 2017 +0100
@@ -14,7 +14,7 @@
 "{ NameSpace: Smalltalk }"
 
 Object subclass:#Icon
-	instanceVariableNames:''
+	instanceVariableNames:'image mask'
 	classVariableNames:'KnownIcons'
 	poolDictionaries:''
 	category:'Graphics-Images'
@@ -60,6 +60,10 @@
     (PTF) CD. A copy of those bitmaps (from the PTF-CD) is found in 
     'goodies/bitmaps/st80bitmaps'.
 
+    [instance variables:]
+        image - these have been added in instVar-slots according to the ST-80's Icon class.
+        mask  - to allow loading of st-80 icons (which are stored as instVarAt:put: expressions)
+
     [See also:]
         Image Form ImageReader