diff --git a/includes/Storage.h b/includes/Storage.h
index 0b9337808338ef4913a0675a09b73aff7ceca38c..1346715ffb7d892db8f6cc417cad4220be972109 100644
--- a/includes/Storage.h
+++ b/includes/Storage.h
@@ -137,7 +137,7 @@ extern void freeStorage(void);
    rtsBool doYouWantToGC(void)  Returns True if the storage manager is
    				ready to perform a GC, False otherwise.
 
-   lnat  allocated_bytes(void)  Returns the number of bytes allocated
+   lnat  allocatedBytes(void)  Returns the number of bytes allocated
                                 via allocate() since the last GC.
 				Used in the reporting of statistics.
 
@@ -148,7 +148,7 @@ extern void freeStorage(void);
 extern StgPtr  allocate        ( nat n );
 extern StgPtr  allocateLocal   ( Capability *cap, nat n );
 extern StgPtr  allocatePinned  ( nat n );
-extern lnat    allocated_bytes ( void );
+extern lnat    allocatedBytes  ( void );
 
 extern bdescr * RTS_VAR(small_alloc_list);
 extern bdescr * RTS_VAR(large_alloc_list);
diff --git a/rts/Storage.c b/rts/Storage.c
index 0c9c60e58062538e3ba3535bb3564debffae8aa0..a657ce8d3e79e1fbaf2f92d8eb7c82efa5bdd4d9 100644
--- a/rts/Storage.c
+++ b/rts/Storage.c
@@ -615,7 +615,7 @@ allocate( nat n )
 }
 
 lnat
-allocated_bytes( void )
+allocatedBytes( void )
 {
     lnat allocated;
 
@@ -874,7 +874,7 @@ calcAllocated( void )
   nat allocated;
   bdescr *bd;
 
-  allocated = allocated_bytes();
+  allocated = allocatedBytes();
   allocated += countNurseryBlocks() * BLOCK_SIZE_W;
   
   {