summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authordkf <donal.k.fellows@manchester.ac.uk>2009-05-05 15:47:45 (GMT)
committerdkf <donal.k.fellows@manchester.ac.uk>2009-05-05 15:47:45 (GMT)
commitaa4da1d985b67660713fd845ff3667898d8e977b (patch)
tree3a84cbb0782e07869e7797e21420de2a38a5bac5
parentfd6cead82a2f2f559fa5376d1e8cf520ef79da95 (diff)
downloadtcl-aa4da1d985b67660713fd845ff3667898d8e977b.zip
tcl-aa4da1d985b67660713fd845ff3667898d8e977b.tar.gz
tcl-aa4da1d985b67660713fd845ff3667898d8e977b.tar.bz2
Missed a spot.
-rw-r--r--generic/tclOO.c6
1 files changed, 4 insertions, 2 deletions
diff --git a/generic/tclOO.c b/generic/tclOO.c
index 4c0b253..6e476e9 100644
--- a/generic/tclOO.c
+++ b/generic/tclOO.c
@@ -8,7 +8,7 @@
* See the file "license.terms" for information on usage and redistribution of
* this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * RCS: @(#) $Id: tclOO.c,v 1.20 2009/05/04 17:39:51 dkf Exp $
+ * RCS: @(#) $Id: tclOO.c,v 1.21 2009/05/05 15:47:45 dkf Exp $
*/
#ifdef HAVE_CONFIG_H
@@ -502,7 +502,9 @@ AllocObject(
*/
configNamespace:
- TclSetNsPath((Namespace *) oPtr->namespacePtr, 1, &fPtr->helpersNs);
+ if (fPtr->helpersNs != NULL) {
+ TclSetNsPath((Namespace *) oPtr->namespacePtr, 1, &fPtr->helpersNs);
+ }
TclOOSetupVariableResolver(oPtr->namespacePtr);
/*