amsn error on Windows 7

(amsn) 1 % source amsn
domain error: argument not in valid range
(amsn) 2 % set errorInfo
domain error: argument not in valid range
    while executing
"expr { 1.0*$origw / $origh } "
    (procedure "::picture::ResizeWithRatio" line 9)
    invoked from within
"::picture::ResizeWithRatio displaypicture_not_self 50 50"
    (procedure "load_my_smaller_pic" line 9)
    invoked from within
"load_my_smaller_pic"
    (procedure "clear_disp" line 9)
    invoked from within
"clear_disp"
    (procedure "load_my_pic" line 18)
    invoked from within
"load_my_pic"
    (procedure "load_config" line 140)
    invoked from within
"load_config		"
    invoked from within
"if { $initialize_amsn == 1 } {
	###############################################################
	create_dir $HOME
	create_dir $HOME/plugins
	create_di..."
    (file "config.tcl" line 1858)
    invoked from within
"source config.tcl	"
    ("uplevel" body line 28)
    invoked from within
"uplevel \#0 {

	# amsncore.tcl is already loaded but we'll re-source it here in case we manually do reload_files
	source amsncore.tcl
	source audio.tc..."
    (procedure "reload_files" line 2)
    invoked from within
"reload_files"
    (file "amsn" line 276)
    invoked from within
"source amsn"
(amsn) 3 %