Index: openacs-4/packages/acs-tcl/tcl/text-html-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/text-html-procs.tcl,v
diff -u -N -r1.77 -r1.78
--- openacs-4/packages/acs-tcl/tcl/text-html-procs.tcl 3 Mar 2018 20:42:33 -0000 1.77
+++ openacs-4/packages/acs-tcl/tcl/text-html-procs.tcl 4 Mar 2018 14:03:57 -0000 1.78
@@ -1856,7 +1856,11 @@
#
####################
-if {![info commands ns_reflow_text] ne ""} {
+if {[info commands ns_reflow_text] eq ""} {
+ #
+ # Define compatibility function for those implementations, that do
+ # not have the built-in version of NaviServer
+ #
ad_proc ns_reflow_text {{-width 80} {-prefix ""} input} {
Reflow a plain text to the given width and prefix every line