@@ -329,12 +329,12 @@
 		 #:title "Test Steps"
 		 (let ((stepsdat ;;(iup:label "Test steps ........................................." 
 			;;	   #:expand "YES" 
 			;;	   #:size "200x150"
 			;;	   #:alignment "ALEFT:ATOP")))
-			(iup:textbox #:action (lambda (obj char val)
-						#f)
+			(iup:textbox ;; #:action (lambda (obj char val)
+				     ;;    	#f)
 				     #:expand "YES"
 				     #:multiline "YES"
 				     #:font "Courier New, -10"
 				     #:size "100x150")))
 		   (hash-table-set! widgets "Test Steps" 
@@ -368,12 +368,12 @@
 		   stepsdat))
 		;; populate the Test Data panel
 		(iup:frame
 		 #:title "Test Data"
 		 (let ((test-data
-			(iup:textbox  #:action (lambda (obj char val)
-						#f)
+			(iup:textbox  ;; #:action (lambda (obj char val)
+				      ;;   	#f)
 				      #:expand "YES"
 				      #:multiline "YES"
 				      #:font "Courier New, -10"
 				      #:size "100x150")))
 		   (hash-table-set! widgets "Test Data"