diff --git a/cb5/i4chang.c b/cb5/i4chang.c
new file mode 100755
index 000000000..675f2f207
--- /dev/null
+++ b/cb5/i4chang.c
@@ -0,0 +1,25 @@
+/* 
+   i4chang.c
+   17 Febbraio 1995
+   restituisce la versione dell'indice
+   */
+
+#include "d4all.h"
+#include "i4chang.h"  
+#define  MAXFILES       50
+
+
+long S4FUNCTION i4changed(INDEX4 *i4)
+{           
+#ifndef S4FOX
+  TAG4 *t4;          
+#endif
+  
+
+#ifdef S4FOX    
+  return((long)i4->tag_index->header.version); 
+#else
+  t4=d4tag_default(i4->data);
+  return((long)t4->header.version);
+#endif
+}
diff --git a/cb5/i4chang.h b/cb5/i4chang.h
new file mode 100755
index 000000000..de0bfb08f
--- /dev/null
+++ b/cb5/i4chang.h
@@ -0,0 +1,15 @@
+/*
+   i4chang.h
+   17 Febbraio 1995
+   */ 
+
+#ifdef __cplusplus
+extern "C" {
+#endif
+
+  long S4FUNCTION i4changed(INDEX4 *);
+
+#ifdef __cplusplus
+}
+#endif
+