- 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));
+ }