diff -crN oommf12a3/pkg/oc/commandline.tcl oommf/pkg/oc/commandline.tcl
*** oommf12a3/pkg/oc/commandline.tcl	Mon Oct 28 20:25:00 2002
--- oommf/pkg/oc/commandline.tcl	Thu Jun  1 14:34:45 2006
***************
*** 319,325 ****
  	    set code [catch {eval _${class}_HandleOption $save($opt)} result]
  	    rename _${class}_HandleOption {}
  	    if {$code} {
! 		error $result "\n$result\n   \
  			(command line option '$sswitch$opt')"
  	    }
  	}
--- 319,326 ----
  	    set code [catch {eval _${class}_HandleOption $save($opt)} result]
  	    rename _${class}_HandleOption {}
  	    if {$code} {
! 		global errorInfo
! 		error $result "$errorInfo\n   \
  			(command line option '$sswitch$opt')"
  	    }
  	}
***************
*** 404,410 ****
  	set code [catch {eval _${class}_Process $rest} result]
  	rename _${class}_Process {}
  	if {$code} {
! 	    error $result "\n$result\n    (command line arguments\
  		    '$arg($sswitch)')"
  	}
      }
--- 405,412 ----
  	set code [catch {eval _${class}_Process $rest} result]
  	rename _${class}_Process {}
  	if {$code} {
! 	    global errorInfo
! 	    error $result "$errorInfo\n    (command line arguments\
  		    '$arg($sswitch)')"
  	}
      }