--- loncom/lonnet/perl/lonnet.pm	2019/07/25 20:23:59	1.1414
+++ loncom/lonnet/perl/lonnet.pm	2019/08/20 03:46:09	1.1415
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # TCP networking package
 #
-# $Id: lonnet.pm,v 1.1414 2019/07/25 20:23:59 raeburn Exp $
+# $Id: lonnet.pm,v 1.1415 2019/08/20 03:46:09 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -12280,6 +12280,10 @@ sub EXT {
 	if ($space eq 'name') {
 	    return $ENV{'SERVER_NAME'};
         }
+    } elsif ($realm eq 'client') {
+        if ($space eq 'remote_addr') {
+            return $ENV{'REMOTE_ADDR'};
+        }
     }
     return '';
 }