This is the script I attached to each project World;
         script1
                 |norm largeCursor |
                 norm := Cursor normal.
                 largeCursor := (CursorWithMask derivedFrom:
                         (norm magnifyBy: 4)) offset: norm offset * 4.
                 ActiveHand showTemporaryCursor:  largeCursor.
         ^ self