diff --git a/lispusers/HANOI b/lispusers/HANOI
index 99143961..00a5f1b1 100644
--- a/lispusers/HANOI
+++ b/lispusers/HANOI
@@ -1,23 +1,23 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-(FILECREATED "21-Aug-2022 18:08:56" {DSK}<home>larry>medley>lispusers>HANOI.;2 22228  
+(FILECREATED "14-Aug-2025 19:01:29" {DSK}<home>larry>il>medley>lispusers>HANOI.;8 22477  
+
+      :EDIT-BY "lmm"
 
       :CHANGES-TO (VARS HANOICOMS)
+                  (FNS HANOIDEMO WHANOI)
+                  (RECORDS HRING)
 
-      :PREVIOUS-DATE "25-Feb-86 19:07:01" {DSK}<home>larry>medley>lispusers>HANOI.;1)
+      :PREVIOUS-DATE "14-Aug-2025 19:00:08" {DSK}<home>larry>il>medley>lispusers>HANOI.;7)
 
 
-(* ; "
-Copyright (c) 1982-1986 by Xerox Corporation.
-")
-
 (PRETTYCOMPRINT HANOICOMS)
 
 (RPAQQ HANOICOMS
        ((FNS DISPLAYPEGSANDRINGS DOHANOI FINDOTHER HANOI HANOIDEMO MOVEDIS MOVERING RINGSHADE 
              SETUPRINGBITMAPS TRACK WHANOI XHANOI)
         (VARS (HANOIWINDOW))
-        (DECLARE%: DONTCOPY (RECORDS PEG RING)
+        (DECLARE%: DONTCOPY (RECORDS PEG HRING)
                (CONSTANTS XRINGSHADE ORINGSHADE XPEGSHADE)
                (CONSTANTS PEGMIN HANOIMARGIN (MAXVERTSPEED 30)
                       (MAXHORIZSPEED 44))
@@ -64,8 +64,10 @@ Copyright (c) 1982-1986 by Xerox Corporation.
     (WHANOI NRINGS WINDOW FONT ONCE])
 
 (HANOIDEMO
-  [LAMBDA NIL                                                (* lmm "17-Feb-86 14:58")
+  [LAMBDA NIL                                                (* ; "Edited 14-Aug-2025 19:00 by lmm")
+                                                             (* lmm "17-Feb-86 14:58")
     (PROG (HANOI.MOUSE.SPEED)
+          (DECLARE (SPECVARS HANOI.MOUSE.SPEED))
           (WHANOI 7
                  [COND
                     ((TYPENAMEP HANOIWINDOW 'WINDOW)
@@ -259,7 +261,8 @@ Copyright (c) 1982-1986 by Xerox Corporation.
                                      2])
 
 (WHANOI
-  [LAMBDA (RINGS W FONT ONCE)                                (* lmm " 3-Dec-85 12:51")
+  [LAMBDA (RINGS W FONT ONCE)                                (* ; "Edited 14-Aug-2025 18:54 by lmm")
+                                                             (* lmm " 3-Dec-85 12:51")
                                                              (* runs hanoi in a region of a 
                                                              displaystream)
     (PROG ([REGION (DSPCLIPPINGREGION NIL (SETQ W (COND
@@ -331,7 +334,7 @@ Copyright (c) 1982-1986 by Xerox Corporation.
                                                                 WIDTH _ PEGWIDTH
                                                                 HEIGHT _ (ITIMES RINGHEIGHT
                                                                                 (ADD1 NRINGS)))
-                                             RINGS _ (LIST (create RING
+                                             RINGS _ (LIST (create HRING
                                                                   RINGREGION _ BASE
                                                                   RINGNUMBER _ 'BASE]
           [PROG [(SOURCEPEG (PEGN 1))
@@ -344,7 +347,7 @@ Copyright (c) 1982-1986 by Xerox Corporation.
                    from (IPLUS HANOIMARGIN (ITIMES RINGLARGEST (SUB1 1))) by RINGDELTA as I
                    from 0 to (SUB1 NRINGS) as LABEL in RINGLABELS
                    do (push (fetch RINGS of SOURCEPEG)
-                            (create RING
+                            (create HRING
                                    RINGREGION _ (create REGION
                                                        LEFT _ RINGLEFT
                                                        BOTTOM _ RINGBOTTOM
@@ -385,7 +388,7 @@ Copyright (c) 1982-1986 by Xerox Corporation.
 
 (RECORD PEG (PEGREGION RINGS))
 
-(RECORD RING (RINGREGION RINGNUMBER RINGLABEL))
+(RECORD HRING (RINGREGION RINGNUMBER RINGLABEL))
 )
 
 (DECLARE%: EVAL@COMPILE 
@@ -435,10 +438,9 @@ Copyright (c) 1982-1986 by Xerox Corporation.
                                                  (HANOI (UNPACK "Interlisp.org")
                                                         W
                                                         '(TIMESROMAND 36])
-(PUTPROPS HANOI COPYRIGHT ("Xerox Corporation" 1982 1983 1984 1985 1986))
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (920 20991 (DISPLAYPEGSANDRINGS 930 . 1875) (DOHANOI 1877 . 2288) (FINDOTHER 2290 . 2512
-) (HANOI 2514 . 2657) (HANOIDEMO 2659 . 3254) (MOVEDIS 3256 . 8151) (MOVERING 8153 . 8808) (RINGSHADE 
-8810 . 9049) (SETUPRINGBITMAPS 9051 . 12799) (TRACK 12801 . 13291) (WHANOI 13293 . 20670) (XHANOI 
-20672 . 20989)))))
+  (FILEMAP (NIL (969 21313 (DISPLAYPEGSANDRINGS 979 . 1924) (DOHANOI 1926 . 2337) (FINDOTHER 2339 . 2561
+) (HANOI 2563 . 2706) (HANOIDEMO 2708 . 3465) (MOVEDIS 3467 . 8362) (MOVERING 8364 . 9019) (RINGSHADE 
+9021 . 9260) (SETUPRINGBITMAPS 9262 . 13010) (TRACK 13012 . 13502) (WHANOI 13504 . 20992) (XHANOI 
+20994 . 21311)))))
 STOP
diff --git a/lispusers/HANOI.LCOM b/lispusers/HANOI.LCOM
index 108adda3..8977fb12 100644
Binary files a/lispusers/HANOI.LCOM and b/lispusers/HANOI.LCOM differ
