Fixed procedure execution in GUI.

[pspp-builds.git] / src / data / casereader.c

diff --git a/src/data/casereader.c b/src/data/casereader.c
index 1baeef5d8411b42a0612da6e20855f4c7714a87a..3c062d9068b6355ace4f8e3caf005b89cd7c25ad 100644 (file)
--- a/src/data/casereader.c
+++ b/src/data/casereader.c
@@ -97,6 +97,8 @@ casereader_clone (const struct casereader *reader_)
 {
   struct casereader *reader = (struct casereader *) reader_;
   struct casereader *clone;
+  if ( reader == NULL ) 
+    return NULL;
 
   if (reader->class->clone == NULL)
     insert_shim (reader);