diff -p -up scilab-4.1.2/tcl/scipadsources/defaults.tcl.orig scilab-4.1.2/tcl/scipadsources/defaults.tcl
--- scilab-4.1.2/tcl/scipadsources/defaults.tcl.orig	2008-04-22 14:38:52.000000000 -0300
+++ scilab-4.1.2/tcl/scipadsources/defaults.tcl	2008-04-22 14:43:19.000000000 -0300
@@ -138,14 +138,14 @@ set linenumbersmarginsmenusetting $linen
 if {[lsearch $textFont "-size"] != -1} {
     set textfontsize [lindex $textFont \
             [expr {[lsearch $textFont "-size"] + 1}] ]
-    set textfontsize [expr {round($textfontsize * [tk scaling])}]
+    set textfontsize [expr {abs(round($textfontsize * [tk scaling]))}]
 } else {
     set textfontsize 12
 }
 if {[lsearch $menuFont "-size"] != -1} {
     set menufontsize [lindex $menuFont \
             [expr {[lsearch $menuFont "-size"] + 1}] ]
-    set menufontsize [expr {round($menufontsize * [tk scaling])}]
+    set menufontsize [expr {abs(round($menufontsize * [tk scaling]))}]
 } else {
     set menufontsize 12
 }