#!/usr/local/bin/gcl.exe -f
(si::error-set 
  '(progn
     (tk::tkconnect :args
      "-geometry 20x20-2+2")
         (tk::wm :iconify ".")
	 (si::info (nth 1 SYSTEM::*COMMAND-ARGS*))
	 (tk::bind (quote .info)
		   "<Destroy>"
		   (quote (bye)))

	 (read)))

