diff --git a/examples/irc.factor b/examples/irc.factor
index 4f695c7fb5..d2d1ebfff7 100644
--- a/examples/irc.factor
+++ b/examples/irc.factor
@@ -88,9 +88,7 @@ USE: unparser
     [
         [
             eval
-        ] [
-            default-error-handler
-        ] catch
+        ] print-error
     ] keep-datastack drop ;
 
 : with-irc-stream ( recepient quot -- )
diff --git a/examples/oop.factor b/examples/oop.factor
index 36e735d537..8bd1c6f36c 100644
--- a/examples/oop.factor
+++ b/examples/oop.factor
@@ -20,7 +20,7 @@ SYMBOL: traits
     "traits-map" word-property ;
 
 : object-map ( obj -- hash )
-    dup has-namespace? [ traits swap get* ] [ drop f ] ifte ;
+    dup hashtable? [ traits swap hash ] [ drop f ] ifte ;
 
 : init-traits-map ( word -- )
     <namespace> "traits-map" set-word-property ;