diff --git a/collects/2htdp/uchat/server.ss b/collects/2htdp/uchat/server.ss
index 7dd92eb2fb..31ff569803 100644
--- a/collects/2htdp/uchat/server.ss
+++ b/collects/2htdp/uchat/server.ss
@@ -1,4 +1,8 @@
+;; The first three lines of this file were inserted by DrScheme. They record metadata
+;; about the language level of this file in a form that our tools can easily process.
+#reader(lib "htdp-intermediate-lambda-reader.ss" "lang")((modname server) (read-case-sensitive #t) (teachpacks ()) (htdp-settings #(#t constructor repeating-decimal #f #t none #f ())))
 
+(require 2htdp/universe)
 
 ;; UniState = (list String)
 ;; interp. the name of currently participating chatters
@@ -18,17 +22,19 @@
 ;; Universe IWorld Message -> Result
 
 (define u0 (list iworld1 iworld2 iworld3))
-(define name1 (iworld-name iworld1))
-(define name2 (iworld-name iworld2))
-(define name3 (iworld-name iworld3))
+(define name1 (symbol->string (iworld-name iworld1)))
+(define name2 (symbol->string (iworld-name iworld2)))
+(define name3 (symbol->string (iworld-name iworld3)))
 
 (check-expect (forward u0 iworld1 (list name2 "hello"))
-  (make-bundle u0 (list (make-mail name1 "hello")) '()))
+  (make-bundle u0 (list (make-mail iworld1 "hello")) '()))
 
 (check-expect (forward u0 iworld1 (list "*" "hello"))
-  (make-bundle u0 (list
-		    (make-mail (string-append name2 "*") "hello")
-		    (make-mail (string-append name3 "*") "hello"))))
+  (make-bundle u0 
+               (list
+                (make-mail iworld2 (list (string-append name2 "*") "hello"))
+                (make-mail iworld2 (list (string-append name3 "*") "hello")))
+               '()))
 
 (define (forward u s msg) (make-bundle u '() '()))