diff --git a/server/player.lisp b/server/player.lisp
index 1b1eb7b..506e38c 100644
--- a/server/player.lisp
+++ b/server/player.lisp
@@ -10,13 +10,14 @@
 (in-package :naledi-ya-africa)
 
 (defstruct player
+	;; A registered user on the server
 	(name "")
 	(password "")
 	(online NIL)
 	(human NIL))
 
 (defclass human (animal)
-	;; A human player
+	;; The game entity representing a human player
 	;;XXX add age?
 	((experience :accessor .xp :initform 0)
 		(level :accessor .level :initform 0)

diff --git a/server/player.lisp b/server/player.lisp
index 1b1eb7b..506e38c 100644
--- a/server/player.lisp
+++ b/server/player.lisp
@@ -10,13 +10,14 @@
 (in-package :naledi-ya-africa)
 
 (defstruct player
+	;; A registered user on the server
 	(name "")
 	(password "")
 	(online NIL)
 	(human NIL))
 
 (defclass human (animal)
-	;; A human player
+	;; The game entity representing a human player
 	;;XXX add age?
 	((experience :accessor .xp :initform 0)
 		(level :accessor .level :initform 0)
diff --git a/util.lisp b/util.lisp
index dfa844f..db5ca7b 100644
--- a/util.lisp
+++ b/util.lisp
@@ -159,9 +159,9 @@
 
 (defun leading-vowel (noun)
 	"Return noun prepended with 'a' or 'an', depending on its first letter."
-	(format NIL "~A ~A"
-		(if (member (char noun 0) '(#\a #\e #\i #\o #\u)) "an" "a")
-		noun))
+	(if (zerop (length noun)) ""
+		(format NIL "~A ~A"
+			(if (member (char noun 0) '(#\a #\e #\i #\o #\u)) "an" "a") noun)))
 
 (defun break-lines (lines width &optional (indent ""))
 	"Take a list of lines and break any that are too long."