[Ur] -root option is broken?

Mon Sep 23 05:18:00 EDT 2013

Hi. Looks like I can't trigger 'Alternate module naming convention' as
stated in the Manual. Here is my simple project:
.
├── App.urp
├── Makefile
└── src
    ├── A.ur
    ├── A.urs
    ├── Main.ur
    ├── Main.urs

Main.ur's content is just

fun main {} =
  t <- Top.A.amazingText {};
  return  <xml>
            <head>
              <title>The page</title>
            </head>
            <body>
            {t}
            </body>
          </xml>

A.ur contains amazingText function returning some plain xbody. When I
invoke urweb as follows:

  $ urweb  -root Top src -dbms sqlite  App

it errors with

  /home/grwlf/proj/urdesign/src/Main.ur:3:7: (to 3:24) Unbound structure A

but

  $ urweb  -root Top src -dbms sqlite  App  -moduleOf src/A
  Top.A

Did I found a bug?

Regards,
Sergey