--- loncom/xml/londefdef.pm	2003/06/11 01:22:32	1.138
+++ loncom/xml/londefdef.pm	2003/06/19 14:58:39	1.139
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Tags Default Definition Module 
 #
-# $Id: londefdef.pm,v 1.138 2003/06/11 01:22:32 www Exp $
+# $Id: londefdef.pm,v 1.139 2003/06/19 14:58:39 sakharuk Exp $
 # 
 #
 # Copyright Michigan State University Board of Trustees
@@ -1703,8 +1703,8 @@ sub start_table {
     my $textwidth;
     if (not defined @Apache::londefdef::table) {
 	$textwidth=&recalc($ENV{'form.textwidth'});
-	$textwidth=~/(\d+)/;
-	$textwidth=$1;
+	$textwidth=~/(\d+\.?\d*)/;
+	$textwidth=0.95*$1;
     } else {
 	$textwidth=&Apache::lonxml::get_param('TeXwidth',$parstack,$safeeval,undef,0);
     }