--- loncom/lonnet/perl/lonnet.pm	2009/09/05 20:44:01	1.1026
+++ loncom/lonnet/perl/lonnet.pm	2009/09/13 03:13:38	1.1027
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # TCP networking package
 #
-# $Id: lonnet.pm,v 1.1026 2009/09/05 20:44:01 raeburn Exp $
+# $Id: lonnet.pm,v 1.1027 2009/09/13 03:13:38 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -5613,7 +5613,8 @@ sub auto_validate_instcode {
     }
     my $response=&unescape(&reply('autovalidateinstcode:'.$cdom.':'.
                            &escape($instcode).':'.&escape($owner),$homeserver));
-    return $response;
+    my ($outcome,$description) = map { &unescape($_); } split('&',$response,2);
+    return ($outcome,$description);
 }
 
 sub auto_create_password {