@@ -621,11 +621,11 @@
 							 )))))
 			      lbl))
 	       (store-button store-label)
 	       (command-proc (lambda (command-text-box)
 			       (let* ((cmd     (iup:attribute command-text-box "VALUE")))
-				 (common:run-a-command cmd))))
+				 (common:run-a-command cmd with-orig-env: #t))))
 	       (command-text-box (iup:textbox
 				  #:expand "HORIZONTAL"
 				  #:font "Courier New, -10"
 				  #:action (lambda (obj cnum val)
 					     ;; (print "cnum=" cnum)