Cannot access module members as unqualified

[rouanvd@softwarerealisations.com]

Hi everyone.

I am having trouble getting my modules to work together.

I have 2 modules :

============================================
module Preprocessor =
    struct

        let run txt =
            print_endline txt;
            txt ^ txt ;;

    end;;


module Main =
    struct

        open Preprocessor;;

        let main () =
            let text = "some text" in
            run text ;;

    end;;
============================================

I want to use the 'run' function unqualified, but i get a compilation
error:

Error: Unbound value run

when I qualify the run function with 'Preprocessor.' it works fine, but I
dont want to qualify the run function.

here are the commands that I use to compile the 2 modules:

============================================

#compile the Preprocessor module & move to obj\ dir
ocamlc -c Preprocessor\Preprocessor.ml
move Preprocessor\*.c* build\obj\

#compile the Main module & move to obj\ dir
ocamlc  -I build\obj\ -c Preprocessor.cmo Main.ml
move *.c* build\obj\

#link all object files to form executable
ocamlc -o build\bin\c.exe build\obj\Preprocessor.cmo build\obj\Main.cmo

============================================

Regards
Rouan