--- loncom/lonnet/perl/lonnet.pm	2021/01/04 03:55:50	1.1172.2.134
+++ loncom/lonnet/perl/lonnet.pm	2021/01/04 13:32:39	1.1172.2.135
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # TCP networking package
 #
-# $Id: lonnet.pm,v 1.1172.2.134 2021/01/04 03:55:50 raeburn Exp $
+# $Id: lonnet.pm,v 1.1172.2.135 2021/01/04 13:32:39 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -7026,7 +7026,7 @@ sub putstore {
            $namevalue.=&escape($key).'='.&freeze_escape($storehash->{$key}).'&';
        }
        my $ip = &get_requestor_ip();
-       $namevalue .= 'ip='.$ip.
+       $namevalue .= 'ip='.&escape($ip).
                      '&host='.&escape($perlvar{'lonHostID'}).
                      '&version='.$esc_v.
                      '&by='.&escape($env{'user.name'}.':'.$env{'user.domain'});