Index: library/nx/nx.tcl
===================================================================
diff -u -N -r8f64a468d8bb53f2ba317c8c738c2d3a24243980 -rf934951db464db1a6f39ac98290ecde17a466cd7
--- library/nx/nx.tcl	(.../nx.tcl)	(revision 8f64a468d8bb53f2ba317c8c738c2d3a24243980)
+++ library/nx/nx.tcl	(.../nx.tcl)	(revision f934951db464db1a6f39ac98290ecde17a466cd7)
@@ -1059,7 +1059,7 @@
         } elseif {$property in [list "alias" "forward" "cmd" "initcmd"]} {
 	  lappend opts -disposition $property
 	  set class [:requireClass ::nx::ObjectParameterSlot $class]
-        } elseif {[regexp {([01])[.][.]([1n*])} $property _ minOccurance maxOccurance]} {
+        } elseif {[regexp {([01])[.][.]([1n*])} $property _ minOccurrence maxOccurrence]} {
 	  lappend opts -multiplicity $property
         } else {
           set type $property
@@ -2518,7 +2518,7 @@
       # Evaluate the command under catch to ensure reverse mapping
       # of "new"
       #
-      set errorOccured [catch \
+      set errorOccurred [catch \
                             [list ::apply [list {} $cmds $object]] \
                             result errorOptions]
 
@@ -2532,7 +2532,7 @@
       #
       # Report the error with message and code when necessary
       #
-      if {$errorOccured} {
+      if {$errorOccurred} {
         dict incr errorOptions -level
         dict unset errorOptions -errorinfo
       }