Index: openacs-4/packages/acs-templating/www/admin/test/chain-frac-1.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/www/admin/test/chain-frac-1.tcl,v
diff -u -N -r1.2 -r1.2.12.1
--- openacs-4/packages/acs-templating/www/admin/test/chain-frac-1.tcl	10 Jan 2007 21:22:13 -0000	1.2
+++ openacs-4/packages/acs-templating/www/admin/test/chain-frac-1.tcl	10 Sep 2015 08:22:09 -0000	1.2.12.1
@@ -272,3 +272,9 @@
 set xf  [expr {1 / ($xf - $r18) }];	# invert the fractional part
 set r19 [expr {int (  $xf    ) }];	# keep the integer part in r19
 set xf  [expr {1 / ($xf - $r19) }];	# invert the fractional part
+
+# Local variables:
+#    mode: tcl
+#    tcl-indent-level: 4
+#    indent-tabs-mode: nil
+# End: