X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=src%2Fui%2Fgui%2Fpsppire.c;h=b99f2896074217beed1fc3672dd0cd0a4338019f;hb=4517b68e7248f22e7b7ed81f0d73179351a53047;hp=6655a6ad5f40c68708dd17eddb8f610e89e220f6;hpb=c898fab12a050123972d9021b1ccb93cc2df0456;p=pspp-builds.git

diff --git a/src/ui/gui/psppire.c b/src/ui/gui/psppire.c
index 6655a6ad..b99f2896 100644
--- a/src/ui/gui/psppire.c
+++ b/src/ui/gui/psppire.c
@@ -29,6 +29,7 @@
 #include <data/file-handle-def.h>
 #include <data/format.h>
 #include <data/storage-stream.h>
+#include <data/case-source.h>
 #include <data/settings.h>
 #include <data/file-name.h>
 #include <data/procedure.h>
@@ -78,9 +79,14 @@ replace_flexifile (struct case_source *s)
     psppire_case_file_replace_flexifile (the_data_store->case_file,
 					 (struct flexifile *) flexifile_create (0));
   else
-    psppire_case_file_replace_flexifile (the_data_store->case_file,
-					 (struct flexifile *)
-					 storage_source_get_casefile (s));
+    {
+      if ( ! case_source_is_class (s, &storage_source_class))
+	return ;
+
+      psppire_case_file_replace_flexifile (the_data_store->case_file,
+					   (struct flexifile *)
+					   storage_source_get_casefile (s));
+    }
 }