Index: scriptlibs/regproc/regproc.tcl
==================================================================
--- scriptlibs/regproc/regproc.tcl
+++ scriptlibs/regproc/regproc.tcl
@@ -5,10 +5,11 @@
 #MIT license
 
 package provide regproc 1.4
 package require http
 package require xplat
+
 
 image create photo _unlock -data  {
     R0lGODlhGAAgAIABAAAAAP///yH+GkNyZWF0ZWQgd2l0aCBHSU1QIG9uIGEgTWFj
     ACH5BAEKAAEALAAAAAAYACAAAAJRjI+gq+jO4npQWmqsBvQenzBYVE1YQH7imWbm
     ib5xA89cPcp4uPX+DwwKh7SdbWXUGF2S5VHn6oBURWrL+lBmb6UrTpucfsE14u85
@@ -136,11 +137,11 @@
 	focus .purchase.bottom.lower.install
 
 	if {[tk windowingsystem] eq "aqua"} {
 	    after idle [list after 0 wm attributes .purchase -notify 1]
 
-	    bind all <FocusIn> [list add [list  wm attributes . -notify 0]]
+	    bind all <FocusIn> [list  wm attributes . -notify 0]
 	}
 
     }
 
     #dialog after demo has expired
@@ -191,11 +192,11 @@
 	focus .expired.bottom.lower.install
 
 	if {[tk windowingsystem] eq "aqua"} {
 	    after idle [list after 0 wm attributes .expired -notify 1]
 
-	    bind all <FocusIn> [list add [list  wm attributes . -notify 0]]
+	    bind all <FocusIn> [list  wm attributes . -notify 0]
 	}
     }
 
     #check for license, validate if found, set demo pitch if not found
     proc readLic {application version} {