Made the updating always take the lowest version number

Author: halirutan

resources/mathematica/FunctionInformation.m

@@ -46,8 +46,8 @@
 names = Sort[Flatten[ makeContextNames /@ {"System`", "Developer`", "Internal`", "JLink`"} ]];
 
 CreateSymbolVersions[] := Thread[names -> $VersionNumber];
-CreateSymbolVersions[existingNames_List] := With[{version = $VersionNumber},
-  existingNames /. (Function[n, (n -> _) :> (n -> version)] /@ names)
+CreateSymbolVersions[existingNames_List] := With[{currVersion = $VersionNumber},
+  existingNames /. (Function[n, (n -> oldVersion_) :> (n -> Min[{currVersion, oldVersion}])] /@ names)
 ];
 
 isFunction[str_String] :=