diff --git a/scsh/test/user-and-group-db-access.scm b/scsh/test/user-and-group-db-access.scm
index 6dff2c2..e5bfba1 100644
--- a/scsh/test/user-and-group-db-access.scm
+++ b/scsh/test/user-and-group-db-access.scm
@@ -32,5 +32,5 @@
 	   (integer? group-id)
 	   (list? group-mem)
 	   (equal? user-name (user-info:name (user-info user-id)))
-	   (equal? (user-info (getenv "USER")) (user-info:name (user-info user-id)))
+	   (equal? (user-info:name (user-info (getenv "USER"))) user-name)
 	   (equal? group-id (group-info:gid (group-info group-name)))))))
\ No newline at end of file