diff --git a/src/Partcl/commands/namespace.pm b/src/Partcl/commands/namespace.pm
index 0d3843e..c31a5d1 100644
--- a/src/Partcl/commands/namespace.pm
+++ b/src/Partcl/commands/namespace.pm
@@ -114,7 +114,7 @@ my sub children($namespace = pir::new('TclString'), $pattern = '*') {
     for @ns -> $level {
         $ns := $ns{$level};
         if pir::typeof($ns) ne 'NameSpace' {
-            error("namespace \"$namespace\" not found in ::");
+            error('namespace "' ~ $namespace ~ '" not found in "::"');
         }
     }
  
diff --git a/t/cmd_namespace.t b/t/cmd_namespace.t
index 031b126..3734ad9 100755
--- a/t/cmd_namespace.t
+++ b/t/cmd_namespace.t
@@ -18,7 +18,7 @@ eval_is {namespace children a b c} \
 
 eval_is {namespace children what?} \
   {namespace "what?" not found in "::"} \
-  {namespace children: unknown namespace} {TODO NQPRX}
+  {namespace children: unknown namespace}
 
 is [namespace children]        {::tcl} {namespace children: no args} {TODO NQPRX}
 is [namespace children ::]     {::tcl} {namespace children: ::} {TODO NQPRX}