Index: openacs-4/packages/acs-tcl/tcl/request-processor-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/request-processor-procs.tcl,v
diff -u -r1.94 -r1.95
--- openacs-4/packages/acs-tcl/tcl/request-processor-procs.tcl	4 Nov 2008 22:29:40 -0000	1.94
+++ openacs-4/packages/acs-tcl/tcl/request-processor-procs.tcl	5 Nov 2008 09:50:21 -0000	1.95
@@ -1256,15 +1256,15 @@
                         return 0
                     }
         	    peeraddr {
-        		# We need for NGINX to make use of the X-Forwarded-For address
+        		# Get the address provided by a reverse proxy such as NGINX via 
+                        # X-Forwarded-For, if available
         		set headers [ns_conn headers]
-        		set headers [ns_conn headers]
         		set i [ns_set find $headers "X-Forwarded-For"]
         		if {$i < 0 } {
         		    # Use ns_conn
         		    return [ns_conn $var]
         		} else {
-        		    return "[ns_set value $headers $i]"
+        		    return [ns_set value $headers $i]
         		}
         	    }
                     default {